home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
ttt5.arc
/
DEMO4.EXE
/
lha
/
MENUDEM2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-01-31
|
2KB
|
61 lines
Program MenuTTT5_Demo_2;
Uses CRT, FastTTT5, DOS, WinTTT5, KeyTTT5, MenuTTT5;
var
M : menu_record;
Choice, Retcode : integer;
Ch : char;
Procedure Define_M;
begin
Menu_Set(M);
With M do
begin
Heading1 := 'Missile Sites';
Heading2 := 'Main Menu';
Topic[1] := ' Help';
Topic[2] := ' Load Database';
Topic[3] := ' Re-index Database ';
Topic[4] := ' Input new Data';
Topic[5] := ' Save Database';
Topic[6] := ' Print Reports';
Topic[7] := ' Quit';
TotalPicks := 7;
PicksPerLine := 1;
AddPrefix := 4;
TopleftXY[1] := 0; {auto center}
TopLeftXY[2] := 4;
BoxType := 5;
Margins := 5;
Colors[1] := white;
Colors[2] := blue;
Colors[3] := lightgray;
Colors[4] := red;
Colors[5] := cyan;
AllowEsc := true;
end;
end;
begin
Fillscreen(1,1,80,22,white,blue,chr(177));
ClearText(1,23,80,25,white,blue);
WriteCenter(24,yellow,blue,'TechnoJock''s Turbo Toolkit');
Choice := 1;
Define_M;
DisplayMenu(M,true,Choice,Retcode);
writeln;
GotoXY(1,20);
If Retcode = 0 then
Writeln('You chose option ',Choice)
else
Writeln('You escaped!');
DelayKey(3000);
Reset_StartUp_Mode;
Clrscr;
WriteAT(1,1,white,black,'Run DemoTTT.exe for the main demo program');
WriteAT(1,2,white,black,'TechnoJock''s Turbo Toolkit v5.0');
GotoXY(1,5);
end.